From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 1 Mar 2009 19:22:22 +0000 (+0000)
Subject: (clear-abbrev-table): Always return nil (Bug#2515).
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1463
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4163d937bd9f09e21bf2b951c81171509e28a16f;p=emacs.git

(clear-abbrev-table): Always return nil (Bug#2515).
---

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 0e8b2cf9e8a..5b4ffe3ae8f 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -521,7 +521,8 @@ the current abbrev table before abbrev lookup happens."
       (set newsym nil)	     ; Make sure it won't be confused for an abbrev.
       (setplist newsym (symbol-plist sym)))
     (abbrev-table-put table :abbrev-table-modiff
-                      (1+ (abbrev-table-get table :abbrev-table-modiff)))))
+                      (1+ (abbrev-table-get table :abbrev-table-modiff))))
+  nil)
 
 (defun define-abbrev (table name expansion &optional hook &rest props)
   "Define an abbrev in TABLE named NAME, to expand to EXPANSION and call HOOK.